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STARDEFAE.SDL = system user interface definitions 
Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
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{ 

FACILITY: VAX/VMS System Macro Libraries 
ABSTRACT: 

es 


This file contains the SDL source for all user visible operating 
system interfaces from A to E. 


ENVIRONMENT : 


AUTHOR: The VMS Group CREATION DATE: 11-Aug-1976 
MODIFIED BY: 
v03-085 cuis085 CW Hobbs 21-AUG-1984 
Remove {) from Pn enthins «. in DVIDEF because of problems 
with. the PASCAL back end. 


VO3-084 CWwH3084 CW Hobbs 24-JUL-1984 
Add spare SDVIDEF Bae oe for shadow een: 


v03-083 ROW0391 Weber 
Add device types “ % the Sot lewten cor50, Veo RoS RX31, RX32, 
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v03-082 
v03-081 
v03-080 
v03-079 
v03-078 


v03-077 


v03-076 


v03-075 


v03-073 
v03-072 
v03-071 E 
v03-070 
v03-069 
v03-068 


v03-067 H 


| 
: 
v03-074 
| 
: 
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and RX18. Also add port device types where appropriate. 


LY0506 Larry Yetto 11-JUL=-1984 17:33 
Add MEDIA_ID item code for GETDVI 
LY0504 rit mg he 10:20 
Add MEDIA_NAME and 4 DIA. TYPE item eR, “ DVIDEF 
EAD182 Elliott A. Drayton 26-Jun-1984 
Add DT$_NQ_3271 and BT vb for the DHFC and Vir. Workstation 100 
LMPO0262 L. Mark Pilant 26-Jun-1984 12:40 
Add ACLS$S_UNLOCK_ACL to SACLDEF. 
RLRQDA Robert L. Rappaport 19-Jun-1984 
Add DT$_ dotteitions for QDA and BDA. 
RASO300 Ron Schaefer + oh 
Add DEVSV_NNM device characteristic to ofven R2 to spec ify 
that clusfer nodenames should be prefixed to the dev name. 
ACG0415 Andrew C. Goldstein, 10-Apr-1984 11:38 
Change file name attribute length to 86 bytes 
RKSO0075 RICK SPITZ 06-APR-1984 
Add DEVDEF bit to indicate redirected Physical Terminal UCB 
HWS0049 Harold Schultz 02-Apr_1984 
Add CLIS$Q_TABLE to SPAWN data structure. 
LMP0213 L. Mark P 24-Mar-1984 11:43 


Add ad itional item he, e MSACLDEF for locking and unlocking 
the object's ACL. 


RLRCRX50 Robert L. Rappaport 13-Mar-1984 
Acid: Dis. CRX50 to SDCDEF. 

0062 Eten nM. Dusseault 8-Mar-1984 
i DVIS_TT_DECCRT2 to SDVIDEF. ned DT$_ ox and 
or DHV T terminal controller definitions ) to 
MHB0105 Mark Bramhall 1-Mar~-1984 
Added DVIS_TT_PHYDEVNAM to SDVIDEF. 
ROWO315 Ralph 0. Weber 27-FEB-1 


984 
acd pew device types oreduced by revised MSCP specification to 


CWH3068 Hobbs 24-Feb-1984 
Add codes to soviver to support dual-path and shadow 
set characteristics 


H0003 ai Huan 16-Feb-1984 
Add DMTSM_ABOR’, MORTEM CLUSTER to SDMTDEF. 
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v03-066 


v03-065 


v03-064 


v03-063 


v03-062 


v03-061 


v03-060 


v03-059 


v03-058 


v03-057 L 


v03-056 


v03-055 
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LMP0186 ark Pilan Jan-1984 11:25 
Add additional pny to the SCHANGE ACL ties item List. 


nausea?" Ralph 0. Weber 29-JAN-1984 

Eysn_s a device haracteristics bit definition for 
DEVCHAR shih on set in \egses that the device is fi 
served to she, Fyre lusser crs aj & MSCP server. Add DT 
DTS_F sone These are ej ght foreign Patsk 
Nevte e ty bio vihey ptouide. the basic mechanism for serving 
foreign disks to the VAXcluster via the MSCP server. 


MIRO300 Michael I. Rosenblum 10-Jan-1984 
add definition or BTS terminals and make a note 
that the negitive terminal device : pos are reserved 
for the RTL foreign pore suppo 
Move the definition for VT200 out of the negitive range 


ROW0276 Ralph 0. Weber 7-JAN-1984 
Add DEVSM_SSM, shodew set rons to SDEVDEF. 


MMDO0213 a Bs 13-Dec-1983 17:17 
Add the constant ATRSC BUFFER _OFFSET to ATRDEF to return 
the value of buffer offset for magnetic tape files. 


LMPO177 L. Mark Pilant 7-Dec-1983 12:53 

Add ATR$x_CLASS MASK to SATRDEF to set/get the classification 
mask from the file header. Also, add a new structure SACLDEF, 
to define the item codes used in the $SETACL system service. 


LMPO175 L. Mark Pilant 2-Dec-1983 10:30 
Add support for the RMS te “ID fields in SACEDEF. 


—AD0101 Elliott A. Drayt 30-nov-1983 
Add two realtime devices FP-FE in and TK-FCM. 


ROWO0251 Ralph 0. Weber 11-NOV-1983 

Add DEVSM_MSCP, a device choreqtortet tes bit which indicates 
that the device is accessed us ng the MSCP protocol. This bit 
is being added oyer some objections to the effect that MSCP 
and non-MSCP devices are (or should be) sufficiently alike 
that ne need to differentiate between them exists. Generally 
speaki ng this is true and care must be taken to avoid relying 
on the DEVSM _MSCP bit wee other means of differentiating 
between devices are sueer tor However, the number of cases 
where the DEVSM_MSCP bit w Ll be the only correct decision 
mechanism is ah and the bit is truely needed. 


mP0170 Pilan 11-Nov-1983 15:48 
hdd ACESA_ NOPROPAGATE yh ACESA. UNIQUE ACE type modifiers. 


TMK0001 Todd 11-Oct-1983 
Re-define DT$_LSIUNA S vy brs eit ang add OTS, DEUNA 
and assign it the same value aS DT$_UNA1 


EAD0087 ott A.Drayt 10-SEP-1983 
Add definitions Me eek etars Pelass and three types. 


STARDEFAE.SDL;1 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
c 
{ 
¢ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
c 
{ 


v03-054 


v03-053 


v03-052 


v03-051 


v03-050 


v03-049 


v03-048 
v03-047 J 
v03-046 
v03-045 


V03-044 


v03-043 


V03-042 


ery alph 9. Weber 22-SEP-1983 
d DEVSV_2P which ndicates that two paths are known to a 
cecane when set. 


PCG0003 Peter C. George 15-Sep-1983 
Add CLISB_VERSION to spawn data structure. 

Add CLISK-SPAWN_VERSION. 

Change RC25 port definition to LESI. 


ACG0354 Andrew C. Goldstein 13-Sep-1983 19:32 
Change CHPS_READWRITE item to CHP$_FLAGS, add READALL flag; 
also remove ATRSC_ S_MASK item, 


TE i 
ACCES 
ROW0223 alph QO. 13-SEP-1983 
Add OTs for aces” and ackoe the AZTEC. Make the values equal 
to those of the R701 and Rif FO1, the old names for AZTEC. 
enders 


KFHOOOS en 10 Sep 1983 
Add DVIS VOLSETMEM on DVIS. °DEVLOCKNAM 

to SDVIDEF. 

KFHOO04 Ken Henderson 22 Aug 1983 


Add new BvYDE"s bits to SDVIDEF. 

pretis SOVIDEF's devdepend/devdepnd2 bits with "TT." 
Remove items from $DVI hat were bits detined in SYSDEF. 
Add DM2Z32 to ipepEr for Mike Rosenblum. 


TCM0003 rudy C. Matthews 28-Jul-1983 
Add DvVI$ _ALLDEVNAM cade to SDVIDEF. 


Lv0278 Jak Wey 27-JUL-1983 

Aad BRKSC_DCL and ~ Pos BRKSM_REFRSH to BRKSM_NOREFRESH. 
WMC0046 Wayne Cardoza 27-Jul-1983 
New flag bits for tone calls. 
RNGOO045S Rod Gam 27-Jul-1983 

Add device types for oon Col cnet vax hardware. 

PCG0002 Peter George 27-Jun-1983 

Add new CLI$ fields for SP. ON callback to DCL. 

Add new CLI$ fields for enhanced pol ag name callbacks. 
Add UK_KTC52 and TQ_BTS to $DCDEF. 

RLRDPATH Robert a Rappe gore 23-Jun-1983 

Add seven CDP, meaning local DISK or rer is also visible 
thru an MSCP Server on another node. This bit means 


that the device has two UCB’s in the local 1/0 database, 
one the weerees local UCR gne other a Disk (or Tape) Class 


Driver These two UCBs point at each other thru 
field. ute 4 _DP_ALTUCB. 
LMP0124 L. Mark Pilan 22-Jun-1983 9:44 


Change the OWNER access defin tion to CONTROL. 
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v04-040 
v03-039 


v03-038 


v03-037 


v03-036 


v03-035 k 
v03-034 J 


v03-033 


v03-032 M 


v03-031 L 


v03-030 R 


v03-029 


v03-028 


v03-027 
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VO3-041 WMC0041 
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Wayne Cardoza 21-Jun-1983 
Add CHKPNT macro 


TCMO002 Trudy C. Matthews 20-Jun-1983 

Add DVI$_LOCKID item” code to SDVIDEF. 

LMP0120 ark Pilan 16-Jun-1983 9:07 
Fix the sizes . ne mCP ACL y 

JLV0270 Jake VanNo 14=JUN-1983 


Add two bits to DEVDEF - it T and DET. Add were to 
SBRKDEF. Add new realtime device to DCDEF 


LMPO116 Mark Pilant, Roy= 1968 9:29 
Add support for Necteare default iveteekton CEs. 
RSHO014 R. Scott Hanna 29-Apr-1983 


Added the mie Access Rights Mask bit definition 
macro SARMDEF 


FHOOO3 Ken Henderson 29 Apr 1983 
Added FULLDEVNAM to SDVIDEF. 

LV0247 Jake VanNo oy 29-APR-1983 
Add SBRKDEF, Meus to SBRKTHRU system service. 
TCMO0001 Trudy C. Matthews 28-Apr-1983 


Add DEV$V_CLU bit to ” SDEVDEF. This bit stenosis that 
the device is available cluster-wide. 


LJ0112 Martin L. Jack 27-Apr-1983 
peleas SDJIDEF Couperseded by new structure, a LIB) 
and SDJTDEF (obsoleted). 


MP0101 Mark Pilant, 14-Apr-1983 1: 100 
had ATR$x_FILE _sPéC to translate a file-I1D to a full file 
pendiceze 


ober 12-APR-1983 

now GETOVE it item “+ y DEVCHAR for the second device 
characteristics longword, UCBSL_DEVCHA tt ak the ugh this 
longword immediately follows Uegst DEVCHAR in the UCB, its 
value is returned popecetely. ! S conforms to the precident 
set by UCBs. DEVDEPEND2 and prevents GETDVI from returning any 
quadword values. 


LMP0098 L. Mark Pilant, B-Apr-1983 12:48 
Add a new attribute for specifying the access mode for an 
attribute. Also, add a new journal-id ACE type. 


WwMC0028 Wayne Cardoza 31-Mar-1983 
Remove CRPROCDEF. 
LMP0093 Pilant 28-Mar-1983 8:34 


Add CHP$_ACCESSR GuTe A a mechanism for returning the 
access rights mask being checked. 
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v03-026 


v03-025 


v03-024 


v03-023 


v03-022 


v03-021 


v03-020 K 


v03-019 
v03-018 


v03-017 


v03-016 


v03-015 
v03-014 


v03-015 
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yo > pd Ralph 0. Weber 25-MAR-1983 
fee vn ue mailbox Sov fe types for oneree memory mailboxes, 
_SHRMBX, and the null device, DT$_N 


$TJ3076 teven T. Jeffre “ys 25-Mar-1983 
- Added support in SATRDEF for f le Rigpewater marks. 
- For ae added Ede, Fatiowing to SATRDEF: 


R$x 
ATRSX” -PRIVS Ose 
ATRS$x_MATCHING_ACE 


RLRUQPORT tl. Rappepert 18-Mar 
ot definitions. ioe uaP 


LMP0087 Mark Pilant, 11-Mar-1983 10:57 
Modify the SACEDEF structure to allow for hidden and/or 
protected ACEs. Also, add a new INFO ACE type. 


KFHOOO2 n Henderson 9 Mar 1983 
Added STS and DEVSTS definitions 
plus their bit definitions to SDVIDEF. 


LMP0082 Mark Pilant, 25-Feb-1983 9:24 
Add SUCCESS and FAILURE flags, remove the ALLGROUP and 
ALLMEMBER slogs. and add some offsets for the various 
journal names. Also add inter tece to the check protection 
system service SCHPDEF. 


ote -1983 
T devices; UDASOA, AZTEC, 


FHOOO1 Henderson 24 Feb 1983 
Add DEVCHAR and DEVDEPEND(S) bit 
definitions to SDVIDEF. 
RLRRD Rober Rappaport 9-Feb-1983 
Add RDS and Rx50 defin tions in SDTDEF. 
ACG0307 Andrew C. Goldstein, 18-Jan-1983 11:34 
Remove password ACE song 
LMPbbbb Pilant, 18-Jan-1983 10:36 


Move the definition — che ACE overhead area to the correct 
location. The Length was off by 4 bytes. 


ACGO307 Andrew C. Goldstein 30-Dec-1982 16:26 
Add passwords and reserved area to ACE' s, add 
classification mask block 


$TJ3043 Steven T. Jeffreys, 16-Dec-1982 

Add the SERADEF macro definiton. 

ACGO0303 Andrew C. Goldstein, 9-Dec-1982 16:05 
Add FILL attribute to extraneous field names 

LMP0062 L. Mark Pilant, 9-Dec-1982 14:55 


Add new ACE type codes for security audit journals and 


6.76 
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ree thd alarms. Also, Ace types for Bl, Al, and AT RMS 
ournal names. 


v03-012 PCG0001 Peter George 22-Nov-1982 
Add a new CLINT service code. 
v0O3-011 LMP005S4 Mark Pilant, “Oct t-1982 16:55 
Add a new attribute to get the length i. ; file's ACL. 
v03-010 wMc0002 Wayne Cardoza 15-Oct-1982 
Add another CREPRC code. 
v03-009 wMcC0001 Wayne Cordoze 04-0c t-1982 
Add CREPRC item List definitions. 
vO3-008 EAD0001 LLiott A. Drayton 21-Sep-1982 
Added DT$_xXP_PCL118. 
v03-007 RLROOO! Robert L. Rappaport 22-July-1982 
Added DT$_TA78, _TU80, _Tu81, and _TA81. 
V03-006 JwWHO0001 Jeffrey W. Horn 02-Jul-1982 
Add Journaling Names type to Access Control Entry. 
v03-005 LMP0036 L. Mark Pilant, 29-Jun-1982 10:40 


Aad the structure definition for the Access Control Entry. 
Also, add the necessary attributes to support the ACL editing 
functions in the ACP. 


v03-004 JSV006 Joost Verhofstad 10-Jun-1982 
Added DT$_CLUNL. 


AAAAAAAS 


STARDEFAE.SDL;1 16-SEP-1984 16:46:46.70 Page 8 


ACCOUNTING AND TERMINATION MESSAGE FORMAT 
THIS IS _ THE STRUCTURE OF THE MESSAGE SENT TO THE TERMINATION MAILBOX 
AND TO THE JOB CONTROLLER. 


module SACCDEF; 


word unsigned; /* MESSAGE TYPE CODE 

MSGSIZ word unsigned; /* LENGTH OF DATA MESSAGE (VALID ONLY IN ACCLOG) 
FINALSTS Longword unsigned; /* FINAL EXIT STATUS 
PID longword unsigned; /* PROCESS +? 
JOBID Longword unsigned; /* JOB IDENTIFICATION (VALID ONLY IN ACCLOG) 
TERMTIME quadword pns toned: /* TERMINATION TIME (100NS UNITS) 
A character Length 8; /* ACCOUNT NAME STRING (BLANK FILLED) 
U character length 12; /* USER NAME STRING (BLANK FILLE 
CPUTIM Longword unsigned; /* CPUTIM IN 10MS UNITS 
PAGEFLTS Longword unsigned; /* TOTAL PAGE FAULTS 
PGFLPEAK lLongword unsigned; /* PEAK PAGING FILE USAGE 
WSPEAK Longword unsigned; /* PEAK WORKING SET SIZE 
BIOCNT longword unsigned; /* COUNT OF BUFFERED 1/0 OPERATIONS 
DIOCNT Longword unsigned; /* COUNT OF DIRECT 1/0 OPERATIONS 
VOLUMES longword unsigned; /* COUNT OF yO uae MOUNTED 
LOGIN quadword unsigned; /* LOGIN TIME (C1OONS UNITS) 

ER Longword unsigned; /* PID OF SUBPROCESS OWNER 
constant TERMLEN equals . prefix ACC$ tag K; /* TERMINATION MESSAGE LENGTH 
constant TERMLEN equals . prefix ACC$ tag C; /* TERMINATION MESSAGE LENGTH 

/* AND ACCOUNTING RECORD FOR NON BATCH JOBS 
/* END OF TERMINATION MESSAGE 
JOB_NAME character length 8; /* JOB NAME (BLANK FILLED) 
JOB_QUE character Length 16; /* QUEUE NAME (.ASCIC) 
constant JOB_LEN equals . prefix ACC$ tag K; /* LENGTH OF BATCH JOB ACCOUNTING RECORD 
constant JOB_LEN equals . prefix ACC$ tag C; /* LENGTH OF BATCH JOB ACCOUNTING RECORD 
end ACCDEF; 
sggregate ACCDEF 1 etrus ture prefix ACC$; 

FILL_1 byte dimension 48 fill prefix ACCDEF tag $$; 
PAGCRT Longword unsigned; /* SYMBIONT PAGE COUNT 
QIOCNT Longword unsigned; /* SYMBIONT Q10 COUNT 
GETCNT longword une teed: /* SYMBIONT GET COUNT 
QUETIME quadword unsigned; /* TIME JOB WAS QUEUED 
PRT_WAME character length 8; /* NAME OF PRINT JOB 
PRT_QUE character Length 12; /* NAME OF PRINT QUEUE 
constant PRT_LEN equals . prefix ACC$ tag K; /* LENGTH OF PRINT ACCOUNTING RECORD 
constant PRT_LEN equals . prefix ACC$ tag C; /* LENGTH OF PRINT ACCOUNTING RECORD 


/t 
Ae DEFINE USER ACCOUNTING MESSAGE DATA AREA 
end ACCDEF1; 


aggregate ACCDEF2 structure prefix ACC$; 
FILL_2 byte dimension 44 fill prefix ACCDEF tag $$; 
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USER_DATA character Length bt F /* ALLOW UP TO 132 BYTES OF USER DATA 
constant INS_LEN equals . prefix ACCS tag K; /* LENGTH OF INSERT MESSAGE 
constant INS_LEN equals . prefix ACC$ tag C; /* LENGTH OF INSERT MESSAGE 


/* 
A ASSIGN RECORD TYPE CODES FOR RECORDS IN THE ACCOUNT LOG FILE 


/* PROCESS ACCOUNTING RECORDS 


constant ( 
PRCTRM /* JOB TERMINATION 
» BATTRA /* BATCH JOB TERMINATION 
. INTTRA /* INTERACTIVE JOB TERMINATION 
- LOGTRM /* LOGIN FAILURE PROCESS TERMINATION 
- IMGTRM /* IMAGE TERMINATION 
° TRM /* SUBPROCESS TERMINATION 
. DETTRM /* DETACHED PROCESS TERMINATION 
NETTRM /* NETWORK PROCESS TERMINATION 
§ equals 1 increment 1 prefix ACC tag SK; 
/* MISC ACCOUNTING RECORDS 
constant ( 
PRTJOB /* PRINT JOB ACCOUNTING 
INSMSG /* INSERTED MESSAGE 
j equals 16 increment 1 prefix ACC tag SK; 


/* 
Ae DEFINE ACCOUNTING MANAGER MESSAGE CODES 


/t 
constant ( 
INSMES /* INSERT MESSAGE INTO ACCOUNTING FILE 
» NEWFILE /* CREATE A NEW ACCOUNT FILE 
° ACC /* ENABLE ACCOUNTING 
« DISAACC /* DISABLE ACCOUNTING 
» ENABSEL /* ENABLE SELECTIVE ACCOUNTING 
DISASEL /* DISABLE SELECTIVE ACCOUNTING 


$ 
§ equals 1 increment 1 prefix ACC tag SK; 
end ACCDEF 2; 
end_module SACCDEF ; 


K 
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module SACEDEF; 
{+ 


/* 
: Access Control List Entry structure definitions 


/*= 


aggregate ACEDEF structure prefix ACES; 


byte unsigned; /* 

TYPE byt net unsigned; /* 
constant ; 
na 

. Sit /*® R 

» ALJNL /* 

» ATJNL /* 

» AUDIT /* 

» ALARM /* 

. INFO /* 

» JNLID /* 

as ye /* 
sqyat increment 1 tag C; 
FLAGS _O pathy. union fill; 

FCAGS word unsign ed; /* 

FLAGS ie Fe Brructy e fill; /* 
INFO E bittield length 4; /* 
lh oe ( 

cCUuST, /* 
css /* 
equals 1 increment 1 tag C; 
ere FLAGS_INF 
LAGS_KEYID 4 re fill; /* 
RESERVED bitfield Length 4; /* 
ond FLAGS _KEYID; 
LAGS BiTs0 structure fill; 
SOCCESS bitfield mask; /* 
PAICORE pi tticta mask; /* 
end FLAGS BITSO; 

FLAGS_BITS structure fill /* 
FILL_1 bit tfield neath 8 fill; 
‘DEFAULT’ bitfield mask; /* 
PROTECTED bitfield pee 3 /* 
HIDDEN bitfield ma /* H 
NOPROP apere sierieta’ mask /* 

end FLAGS BIT S; 
end FLAGS LOVERCAY: 
ACE_FIELDS union fill; /* 

KEY_AUD_TYPE structure fill; /* 
“ACCESS struct re Longword unsigned; /* 

EAD bitfield mas /* 
WRITE bitfield mask; /* 
parey Ebittietg” eapk; /* 
PELE T eeriee mask /* 
CON tfield aaeks /* 


Size of the entry 
Type of entry 


Key if identifier entry 
ournal name 
RMS i ourne, none 
RMS AT ourng: © 
Security audit lournsl entry 
Security alarm entry 
General yryees latornetion 
Journal-ID t type 
Directory default protection 


Type de dependent & sndopendont flags 
Flags for INFO type A 

INFO ACE subtype 
Cu 
cs 


stomer defined 
S defined 


Flags for KEYID t ype 
Count of sasareed ongwords 


Audit or alarm upon success 
Audit ot alarm upon failure 


Type independent flags 


Directory default entry 
precectes ACE 

idden A 
No node ER between versions 


art of ACE overlayed area 
Y-ID and security audit types 
cess rights a' tne sk 

lowed to reed 

lowed to write 

lowed to grecute 

ri fo delete 


t 
E 
C 
l 
l 
l leges of the owner 


Ss 
K 
A 
A 
A 
A 
A 
A 


STAI 


end 
end, 
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end ACCESS; 
constant ‘LENGTH’ equals . tag K; 
constant ‘LENGTH Fait . tag C; 
KEY -OYER AY union f 
LTNARE ch unsigned; 
d character length 16; 
d Kev TOVER 


end KEY AUD “TYPE 


INFO_TYPE structure fill; 
INFO_FLAGS Longword unsigned; 
INFO_ START character Length i; 

end INFO_TYPE; 


RMSJNL_OVERLAY union fill; 
JNCID_TYPE structure fill; 
character Length 12; 
FID “(3 word. 111 pength 
tak f word 
ID (guedword , 
end tat 


RMSJN JNCNAR™ 4 length 16; 
end RMSJNL_OVERLAY; 


DIRDEF _TYPE structure fill; 
SPARE1 Longword unsigned; 
SYS_PROT Longword uns igned; 
OWN-PROT Longword unsigned; 
GRP_PROT Longword unsigned; 
WOR” PROT vppnawore unsigned; 

end ty 


Length of the overhead area 
Length of the overhead area 


Start of the key field 
Start of the security Journal name 


INFO tyoe application flags 
Start of the information 


Volume name 
File-ID 

Time 

RMS journal name 


For alignment 

Default system protection 
Default owner protection 
Default group protection 
Default world protection 


end ACE -FIEL 
end ACEDEF ; 


end_module SACEDEF ; 
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Access Control List structure definitions 


module SACLDEF; 


aggregate ACLDEF structure prefix ACL$; 
FLINK Longword unsigned; 
BLINK conguerg unsigned; 
4G 


SIZE word uns 
TYPE byte une jpred 
FILL_1 byte fi Lp 
constant 


ned; 


retix ACLDEF tag $$ 
equals . prefix ACL$ tag K; 


constant "LENGTH" equals . prefix ACLS tag C; 
LIST longword unsigned; 


constant ( 
FILE 


“ses © 28 * 6 & 


consta 


ss © 8 8&8 & 8&8 & 


DEVICE 
JOBCTL_QUEUE 
C CLUSTER 

LOGICAC_NAME_TABLE 

PROCESS 

GLOBAL SECTION 

equals 1 increment 1 prefix ACL tag $C; 


nt ¢ 


ACL 
§ equals”! increment 1 prefix ACL tag $C; 


constant ADDACLENT equals 255 prefix ACL tag $5; 
constant DELACLENT equals 255 

constant MODACLENT equals prefix ACL tag $5; 
constant FNDACLENT equals 
constant FNDACETYP equals 
constant DELETEACL equals 

constant 
constant ACLLENGTH equals 
constant READACE 

constant RLOCK_ACL equals 4 

constant WLOCK_ACL equals 4 

constant UNLOCR_ACL equa 4 


prefix ACL 
prefix ACL 
prefix ACL 
prefix ACL tag 

ACL 

ACL 

ACL 


ADACL equals 51 


equals 25 
prefix 
prefix 


ls prefix 


prefix ACL tag $5S; 


prefix ACL tag $S; 
prefix ACL tag $3: 


M 
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Forward Link to next List in the queue 
Back Link to previous List in queue 
Total size of the List 

Structure type code 

Spare unused byte 

Length of the overhead area 

Length of the overhead area 

Start of the Access Control Entries 


Object types 
pbiec ad 


MBX, MT, TT, etc. 

Job controller queue 
Common event flag clusters 
Logical name tables 
Process 

Global sections 


Action codes 

Add an ACL entry 
Delete an ACL entry 
Modify an ACL entry 
Locate an ACL entr 
Locate specific AC 
Delete entire ACL 


he ACL 
Get the ACL's Length 
Read a single ACE 
Read lock on ACL 
Write lock on ACL 
Release exclusive lock 


t type 


Add an ACL entry 

Delete an ACL entry 
Modify an ACL entry 
Locate an AGL entry 
Locate specific ACE type 
Delete entire ACL 


Wr 
Remove lock on ACL 


a 
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end ACLDEF; 
end_module SACLDEF; 


N 
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gogule SACRDEF; 
fe ACRDEF = ACCOUNTING RECORD DEFINITIONS 


cS memee ks Seay SEMEL AE GRANGE hh Sibu SERRION GoUEE meet Ek nee ioe 


A HEN yens son NUMBER MUST BE ADDED AND * 


NOTE: IF ANY FIELDS CHANGE 
‘ACRSK_CURVER" EQUATED . 
ENE ee Eke TR wee ei Be LOR EE Ge 
/* 
/t- 
/* RECORD/PACKET VERSIONS (ACRSV_VERSION) 
constant ( 
VERSION /* VMS VERSION 2 ACCOUNTING FORMAT 
» VERSIONST /* VMS VERSION 3 FIELD TEST 
VERSION /* VMS VERSION 3 ACCOUNTING FORMAT 
j equals 0 increment 1 prefix ACR tag SK; 
constant ( 


CURVER /* CURRENT FORMAT VERSION NUMBER 
) equals ACRSK_VERSION3S increment 0 prefix ACR tag $K; 


aggregate ACRDEF structure prefix ACR$; 
E_OVERLAY union fill; 


TYPE word uns toned: /* RECORD/PACKET TYPE 
TYPE_BITS structure fill; 
PACKET bitfield mask: * RECORD(0) /PACKET(1) 
TYPE bitfield mask length 7; /* RECORD/PACKET TYPE 
SUBTYPE bitfield mask length 4; /* RECORD/PACKET SUBTYPE 
VERSION bitfield mask length 3; /* RECORD/PACKET VERSION NUMBER 
: upronee bterte mask; /* DIGITAL(O) /CUSTOMER(1) 
en : 


/* RECORD TYPE (ACRSV_TYPE) CONSTANTS 
* PROCESS DELETE 
PRO 


C. G. 
RWARD LINK 
CKWARD LINK 


“eee eee ese eens 
c —— OU 
74) xz 
mm 
= 


ganze 


FL 
FILE-BL /* 
equals 1 increment 1 prefix ACR tag SK; 


/* RECORD SUBTYPE (ACRSV_SUBTYPE) CONSTANTS 
INTERACTIVE /* INTERACTIVE PROCESS 


constan 
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RK 
equals 1 increment 1 prefix ACR 


constant ( 


a ¥ 
USER TATA 
equals 1 increment 1 prefix ACR 


end TYPE_OVERLAY; 
“LENGTH word unsigned; 


/t 
A RECORD HEADER 
end ACRDEF; 


sogregate AC ACRDEF1 structure prefix ACR$; 
byte dimension 4 fill prefix ACRDEF 
SYST St The Quadword unsigned; 
constant HDRLEN equals . prefix ACRS$ tag K; 
constant HDRLEN equals . prefix ACR$ tag C; 


/t 
~ IDENTIFICATION PACKET 
end ACRDEF1; 


aggregate AC ACRDEF2 structure prefix ACR$; 
byte poet 4 fill prefix ACRDEF 


vIC id os oats gne 

UIC_FIECDS structure Stitt 
‘ word unsigned; 

RP word unsigned; 

end Ore FIELDS; 

end UIC_OV ERLAY: 

PRIV quidvord uns igned: 

PRI byte uns eee 

FILL_1 byte fill prefix ACRDEF tag $$; 

USER word un gned; 

ACCOUNT word a gne 

NODENAME word uns gned; 

TERMINAL wore ang toned: 

JOBNAME wo signed; 

JOBID Longs ord unsigned: 

QUEUE wo gned; 

NODE ADDR “wera a gned; 

REMOTEID word unsigned: 
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tag SK; 
/* PACKET TYPE (ACRSV_TYPE) CONSTANTS 
/* JDEWTSEICAT ION PACKET 
/* RESOURCE USAGE PACKET 
E PACKET 


/* USER DATA PACKET 
tag $K; 


/* RECORD OR PACKET LENGTH 


tag $$; 
EVENT SYSTEM TIME 

/* RECORD HEADER LENGTH 
RECORD HEADER LENGTH 


tag $$; 
/* PROCESS ID 
/* OWNER PROCES ID 


/* PROCESS VIC 


/* MEMBER UIC 
/* GROUP UIC 


STA 


STARDEFAE.SDL;1 
constant IDVAR equals . prefix ACR$ tag 
constant IDVAR equals . prefix ACR$ tag C; 
ye RESOURCE PACKET 
end ACRDEF 2; 


eperepete ACRDEF3 strusture prefix ACR 
FILL.4 b jen 4 fill prefix ACRDEF tag $$; 


fe 

/* IMAGENAME PACKET 
& 

end ACRDEF3; 


esorepete ACRDEF4 structure prefix ACRS$; 
FILL_5 byte dimension 4 fill pretis ACRDEF tag $$; 
IMAGENAME character Length 256; 


* 
/* PRINT RESOURCE PACKET 
® 

end ACRDEF4; 


eggregate ACRDEFS structure prefix ACR$; 
FILL.6 byte dimension 4 fill prefix ACRDEF tag $$; 
PRINTSTS Longword unsigned; 

QUETIME quadword unsigned; 

BEGTIME gupewore unsigned; 

SYMCPUTIM Longword unsigned; 

PAGECNT longword unsigned; 

QIOCNT Longword unsigned; 

GETCNT Longword unsigned; 


/t 
“? FILENAME PACKET 
end ACRDEFS; 
aggregate ACRDEF6 structure p 
FILL 7 byte dimension 4 f 

Pe FILERAME character Length 
‘e USER DATA PACKET 

4 


end ACRDEF6; 


ACRS; 
efix ACRDEF tag $$; 


/* 
/t 


~ 
a 
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NNING OF VARIABL 


BEGINNING STORAGE A 
BEGINNING OF VARIABL 


REA 
STORAGE AREA 


MmMmmmmmmme— mn 
<WDo VEL VVFZ MMH 


IMAGENAME 


FILENAME 
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aggregate sat ACRDEF7 stru cure + ge CRS; 
e dimension ee pretix ACRDEF tag $$; 


t 
USER bath character Loneth 
end ACRDEF 


end_module SACRDEF; 


/* USER DATA 
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module SARMDEF ; 

{we 

A Access Rights Mask longword definitions 


aggregate ARMDEF structure prefix ARMS; 
ores READ bf fi d Fug 


¢ mas /* 
WRITE bitfield mask; /* 
EXECUTE bitfield mask; /* 
DELETE bitfield mas /* 

itfield mask /* 


CONTROL b : 
FILL bitfield Length $2-*; 
end ARMDEF ; 


end_module SARMDEF ; 


F 
16-SEP-1984 16:46:46.70 Page 18 


Read access 

Write access 

Execute access 

Delete access 

Control access (modify attributes) 
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TO READ AND 
ONTROL BLOCKS 


av 


nw 
w = 
_- x 
> w 
oa - 
=z w 
sl 
a> 
wom 
eo 
> « 
Owe 
—A 
a><t 
bee 
—- 
xqwo 
— 
uD 
wed 
nr Oo 
—-—oO 
“nae 
e+ 
~_™ 
es 
a 
i. 4 
— 
LL 
< 
— 
a 
wo 
. 
a 
es 
& a=] 
os a 
| Cc 
eee 
vv0v0-.- 
3eeou 
e&ccc 
+ oos 
ore 
2eP 
ives 
wSSs 
a B 
avuvuom 
sss 
zoo 
3 3s— 
a 
Huw 
emnmaa 
o->O 
eour-< 
. 
oa 
oa 
@ 


/* ATTRIBUTE CODES 


UENCE COUNT 
CCESSIBILITY 


VERSION 
ATION DATE 


” 
=) 
— 
— 
” 
od 
« 
a 
e— 
ke 
<= 
L. 4 
< 
= 


TRIBUTES 
NAME 
TYPE 


2M@a Ot w jZOZZVvewOuw.cuw 

w wWweweO- « wz 
a a 0 lO 
eRe ee > OE MEO mrt ee 


CTORY 


a tee 


eee eeeeeeeeeeeeeeeeeeeeeeeeee 
jm TS SS A TR SS SS SS 


wos Je 
sWMOwW “ax Y 
« a eee Ss = zw 
Seer Zee a ed ee ed wexoo=s< 
ce at ty tat eS fe «<<< >Yew a 
a<aZ2r>0rOvacoo34zoaoasa ee“3 Maen 
ZVI 4 € COWOVOUW F484 MUZE UY vevae 
QU tte tas JI JZ Ss EO OW LOS 
Deuewuw.wrtor<ddwetvewOrecev roo rt 
se © te eeeeeteeesseestse#e#e##es#e#es#e#e* © &® @& @ 


constant ( 


~~ 
= > 
< | 
= aid 2 
~>z w Yv oO 
aw v 4 
_ 4 a 
zi w < 
wo “ = ive) 
a So — [> 4 
= J 
=F 3 wow <€o 
eorractiO ww 
e—vaacr w aww 
aioe So 
“_iZzt & Kew ~oO 
VCMWwWWwOWOESo WY 
[v¥) ——aee uM 
Oo Je Zw oaew 


ee eee eee e 


eer [- 4 
22z22>vV0 -—- Ow 
Grae SS 
a a a ae ee ee a ee 
ee ss = 2 
+ a >> fe pe 
ow $32 ajEno 
ou Z22wweoww 
efus.SOa<4eecroe 
e*e @eseeees 8 &© & & @& 


H 
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. etys USED /* velit GES USED TO GAIN ACCESS 

» MATCHING ACE /* ACE USED TO GAIN ACCESS (IF ANY) 

° erte® MODE /* ACCESS MODE FOR pon touiee ATTRIBUTE DESCRIPTORS 

» FILE SPEC /* CONVERT FID TO FIL Tones 

> cine MASK /* Non-discretionary classification mask 

, BUFFER_OFFSET /* For magnetic tape only Length of buffer offset of block in file 


/* ALL new attributes should b 
/* added here before MAX_PLUS 


MAX_PLU /* Maximum code plus one 


1 
§ equals 3 increment 1 prefix ATR tag $C; 


constant MAX CODE equals (ATRSC_MAX PLUS! = 1) eretts ATR tag SC; 
constant FNDACETYP equals ATRSC_FADACCTYP prefix A C 


/* ATTRIBUTE MAXIMUM LENGTHS 
constant UCHAR equals 3 prefix ATR tag $5; /* 3 BYTE USER FILE CHARACTERISTICS 
constant RECATTR equals 32 prefix ATR tag $$; /* 32 BYTES RECORD ATTRIBUTES 
constant FILNAM equals prefix ATR tag $S; /* 6 BYTE RAD-50 FILE NAME 
constant FILTYP equals prefix ATR tag $S; /* 2 BYTE RAD=50 FILE TYPE 
constant FILVER equals prefix ATR tag $S; /* 2 BYTE BINARY FILE VERSION 
constant EXPDAT equals prefix ATR tag $S; /* 7 BYTE ASCII EXPIRATION DATE 
constant STATBLK equals 2 prefix ATR tag $$; /* ; BYTE STATISTICS BLOC 
constant HEADER equals 512 prefix ATR tag $$; /* 512 BYTE FILE HEADER 
constant BLOCKSIZE equals prefix ATR tag 3S; /* MAGTAPE BLOCK SIZE 
constant USERLABEL equals g prefix ATR tag $5; /* USER FILE LABEL 
constant ASCDATES equals prefix ATR tag $8; /* REVISION COUNT THRU EXP DATE IN ASCII 
constant ALCONTROL equals 14 prefix ATR tag $8; /* COMPATIBILITY MODE ALLOCATION DATA 
constant ENDLBLAST equals 4 prefix ATR tag $$; * END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK 
constant ASCNAME equals 86 prefix ATR tag $$; /* aite NAME, TYPE & VERSION IN ASCI 
constant CREDATE equals prefix ATR tag $S; /* BIT CREATION DATE 
constant REVDATE equals prefix ATR tag $S; /* 64 BIT REVISION DATE 
constant EXPDATE equals prefix ATR tag $5S; /* 64 BIT EXPIRATION DATE 
constant BAKDATE equals prefix ATR tag $5; /* 64 BIT BACKUP DATE 
constant UIC equals 4 prefix ATR tag $S; /* 4 BYTE FILE OWNER UIC 
constant FPRO equals prefix ATR tag $S; /* 2 BYTE FILE PROTECTION 
constant RPRO equals prefix ATR tag $5; /* 2 BYTE RECORD PROTECTION 
constant ACLEVEL equals prefix ATR tag $S; /* 1 BYTE FILE ACCESS LEVEL 
constant SEMASK equals ? prefix ATR tag $3: /* FILE SECURITY MASK AND LIMIT 
constant UIC_RO equals prefix ATR tag $5; /* READ ONLY UIC 
constant DIRSEQ equals prefix ATR tag $S; /* DIRECTORY UPDATE SEQUENCE COUNT 
constant BACKLINK equals prefix ATR tag $5; /* FILE BACK LINK POINTER 
constant JOURNAL equals prefix ATR tag $5; /* JOURNAL CONTROL FLAGS 
constant HDRI_ACC equals prefix ATR tag $S; a well ee ACCESSIBILITY 
constant ADDACLENT equals prefix ATR tag $S; /* ADD AN ACCESS CONTROL ENTRY 
constant DELACLENT equals prefix ATR tag $8; /* REMOVE AN ACCESS CONTROL ENTRY 
constant MODACLENT equals prefix ATR tag $S; /* MODIFY AN ACL ENTRY 
constant FNDACLENT equals prefix ATR tag $$; /* LOCATE AN ACL ENTRY 
constant FNDACLTYP equals prefix ATR tag $S; /* FIND A SPECIFIC TYPE OF ACE 
constant FNDACETYP equals prefix ATR tag $3: /* FIND A SPECIFIC TYPE OF ACE 
constant DELETEACL equals prefix ATR tag $8; /* DELETE THE ENTIRE ACL 
constant READACL equals 51 pretis ATR tag $S; /* READ THE alt bi: ACL 
constant ACLLENGTH equals 4 pret x_ ATR tag S$; /* RETURN THE LENGTH OF THE ACL 
constant READACE equals 255 prefix ATR tag $5; /* READ A SINGLE ACE 


STARDEFAE.SDL;1 16-SEP-1984 16:46:48.70 Page 21 


constant HiGHUA iY equals 380 prety ATR ATR tag $5; /* pop / son ont D AREA 
constant HIGHWATER seuate t x ae ta Rad /« Ff H WATER MARK (USER READ ONLY) 
constant D uals pref R tag /* Ae AVA AB 


constant PRIVS “USED geseve © Br etx ATR A. "$s; /* PRIVS USED 
constant MATCHING ACE nwels 5 gretis ATR tag $S; /* ACE USED TO 
constant ACCESS NRODE oayels prefix ATR tag $5; /* ACCESS MODE 4 i tb ATTRIBUTE DESCRIPTORS 
constant FILE SPEC equals J prefix ATR tag $5; /* CONVERT FID TO FILE=SPE 
constant CLASS MASK equals 2 gress ATR tag $5; /* Non-discretionary classification mask 
al constant BUFFER OFFSET equals prefix ATR tag $S; /* Buffer offset length field 


end_module SATRDEF; 


0 na ACCESS 
7 
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module SBRKDEF; 


{t+ 


/* 
je Breakthru system service input definitions. 


/e- 


Constant ( 


DEVICE, /* device name 

USERNAME , /* user name 

ALLUSERS, /* At ysers 

ALLTERMS /* toaned in users 
) Equals 1 Increment 1 PREFIX BRKS. TAG " 


Constant MAXSENDTYPE Equals BRKSC_ALLTERMS PREFIX BRK$ TAG ‘'C'’; 
/t 
os Requestor ID's, DEC use only (0-31) 


Constant ( 


GENERAL, /* GENERAL (OR UNSPECIFIED) 
PHONE , /* PHONE 
IL /* 
Queue /* QUEUE MANAGER 
SHUTDOWN, /* SYSTEM SHUTDOWN 
URGENT, /* URGENT MESSAGE 
DCL /* DCL (contr 


ol T) 
OPCOM 7* OPERATOR MESSAGE 
) Equals 0 Increment 1 PREFIX BRKS$ TAG ''C’’; 


/* Note that only first 16 are really stored by TTDRIVER now 
Constant ( 


USERI, /* reserved to customer 
UsERe. /* reserved to customer 
USERS, /* reserved to customer 
USER4, /* reserved to customer 
USERS, /* reserved to customer 
USER6, /* reserved to customer 
USER7, /* reserved to customer 
USER8, /* reserved to customer 
USER /* reserved to customer 
USER10, /* reserved to customer 
USERI1, /* reserved to customer 
USERI¢. /* reserved to customer 
USER15, /* reserved to customer 
UoER tae /* reserved to customer 
USER15, /* reserved to customer 


USER16 /* reserved to customer 
) Equals 32 Increment 1 PREFIX BRK$ TAG "'C''; 


aggregate FLAGS_INPUT structure prefix BRK$; /* mimics SBROCSTDEF 


K 
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ERASE LINES bitfield Length 8; /* number of Lines to erase 
acre Q bitfield mask; /* Do screen formatted write 
BOTTOM bitfield mask; /* “screen’’ message at bottom 
NOREF RESH bitfield mask; /* Refresh an interrupted read 
CLUSTER bitfield mask; /* broadcast to cluster 


end FLAGS_INPUT; 
end_module $SBRKDEF ; 
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module SCHFDEF; 
/* 


/* £ONp igs Andy INS ARGUMENT LIST OFFSETS 

/* THER Tee CONDITIONAL HANDLING STRUCTURES: THE 
/* LIST, 5 TH HE SIGNAL AND MECHANISM ARRAYS. ALL ARE I 
. BLOCK PREF IX. 


egoregate, ture prefix CHF$; 
lLongword fill prot is CHFDEF tag $$; 

SIGA GRGLST ongword unsigned; 

MCHARGLST lLongword unsigned; 


end CHFDEF; 


CHF DEF struc 


as tb tt 8 CHFDEF1 structure prefix CHFS; 
S longword unsigned; 

$1G_ NARE lLongword unsiened: 

SIG-ARG1 Longword unsigned; 


end CHFDEF1; 


moore CHFDEF2 structure prefix CHF$; 
ARGS longword unsigned; 
MCH_FRAME Longword uns gned; 


MCH_DEPTH Longword unsigned; 

MCH_SAVRO Longword unsigned; 

MCH_SAVR1 Longword unsigned; 
end CHFDEF 2; 


end_module SCHFDEF; 
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PRIMARY ARGUMENT 
DENTIFIED BY THE SAME 


NT ot T 
NAL A RGUMENTS 
HANISM ARGUMENTS 


BER OF SIGNAL ARGUMENTS 
ST SIGNAL SPECIFIC ARGUMENT 


/*NUMBER OF sere bee ereenrs 


/*ESTABLISHER FRAME ADDR 
/*FRAME DEPTH OF ESTABLISHER 
/*SAVED REGISTER RO 

/*SAVED REGISTER R1 


M 
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godule SCHKPNTDEF ; 


/* 
ener flags for calls to create checkpointable processes 
aggregate CHKPNTDEF structure prefix CHKPNTS$; 


AUTO_RESTART bitfield mask; /* gutooreetart detached process 
DEBUG bitfield mask; /* merge in DEBUG 
ASYNC bitfield mask; /* asynchronous checkpoint process 


end CHKPNTDEF ; 
end_module SCHKPNTDEF ; 


N 
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module $CHPDEF; 

J+ 

/* 

A Item definitions for the SCHKPRO (check protection) service. 
/t- 

constant ( 


END /* List end 
ACCESS, /* intended Teerht 
FLAGS, /* read / write flags 
PRIV /* privilege mas 
ACMODE /* accessor access no 
ACCLASS, /* oqceesor secur ty TT satitension 
GHTS, /*r rages | ist 
ADDRIGHTS /* additional rights List segments 
E /* rer access mode 
MODE S$ /* per action access mode 
MINCLASS, /* minimum security classification 
MAXCLASS, /* maximum security classification 
OWNER, /* object owner 
PROT, /* protection mask 
ACL /* access control List segment 
AUDI TNAME, /* security audit name 
ALARMNAME /* security pg bt name 
MATCHEDACE, /* address of matching ACE 
PRIVUSED, /* mask of privileges used 
w _CODE /* highest CHP$ item code 
) eQuals 0 increment 1 prefix CHP tag $; 


08 She Ry PRIVS_USED gbits structure prefix CHP$; 


bitfield /* access via SYSPRV privilege 
ASS Bittield 44 /* access via BYPASS privilege 
BPGRADE bitfield mask; /* access via UPGRADE privilege 
DOWNGRADE bitfield posh; /* access via DOWNGRADE privilege 
GRPPRV bitfield mask /* access via GRPPRV privilege 
READALL bitfield mask; /* access via READALL privilege 
end PRIVS_USED_BITS; 
aggregate FLAG.GITS 8 eeructure prefix CHP$; 
READ bitfield mas /* non=discretjonary read access 
wk is apa eve ma 3 /* non-discreti vonary write 8 access 
ADALL bitfie ta’ mask; /* READALL privilege applies 


USERE 
end FLAG_BITS; 
end_module S$CHPDEF ; 
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module SCLIDEF; 
(eee 


/* 
SCLIDEF === COMMAND LAGUAGE INTERFACE DEFINITIONS 
THIS me Pete te THE OFFSCT VALUES FOR THE DATA STRUCTURES 


/* 
is 
/* USED TO COMMUNICATED COMMAND INFORMATION BETWEEN THE CLI AND 
ie! THE UTILITY THAT WAS REQUESTED TO PERFORM THE OPERATION. 

/t- 


aggregate. CLIDEF structure prefix CLI$; 


RGCNT Longword unsigned; /* INITIAL ARG COUNT 
PROGXFER address; /* PROGRAM TRANSFER VECTOR ADDRESS 
UTILSERV address; /* ADDRESS OF CLI UTILITY SERVICE 
IMGHDADR address; /* ADDRESS OF IMAGE HEADER 
IMGFILED address; /* ADDRESS OF IMAGE FILE DATA 
LINKFLAG Longword unsi ned; /* LINK FLAG LONGWORD 
CLIFLAG_OVERLAY union iLl: 
CLIFLAG Longuord unsigned /* CLI FLAG LONGWORD 
cLIFLAG Bile structure fill; 
€B0G bisrigle mask; /* DEBUG yg ES SEEN 
DBGTRU bitfield mask; /* DEBUG WAS TRUE 
VERIFY bitfield mask; /* VERIFY IS ON 
BATCH bitfield mask; /* THIS PROCESS IS A BATCH JOB 
INDIRECT bitfield pens /* INDIRECT LEVEL NOT EQUAL TO ZERO 
VFYINP bitfield m /* UTILITY SHOULD VERFIY INPUT 
FILL_1 bitfield fori ¢. ws retix CLIDEF tag $$5/* ROU TO NEXT BYTE 
TRAVRL V bitfield mask | ength /* TERMINAL VERBOSITY LEVE 
IL bitfield length 6 fill prefix CLIDEF tag $$;/* ROUND UP TO NEXT BYTE 
4 DBGERCP piyriese mask; /t DEBUGGER CALLED VIA "‘DEBUG'' EXCEPTION 
en 
/* 4 nie ,FOLLORIING. G ARGUMENTS ARE OPTIONAL DEPENDING ON INIARGCNT 
en 
ARGLIST Longword oo PRS /* ADDRESS OF APPLICATION ARGUMENT LIST 
/* (USED FOR MERGED IMAGE ARG. PASSING) 
/t 
DEFINE CLI COMMAND INTERFACE REQUEST BLOCK 
end CLIDEF; 
sogregete Cll 
FICL iets" Hut prefix CLIDEF tag $$; /* DUMMY ARG 
FILL- At: DS gerusture fill; 
ROTYPE | Y union fill; 
~ 4 unsigned; /* TYPE OF REQUEST BEING MADE 
aalioe BITS steycture fill; 
SUBT YE bitfield Length 4; /* SUB TYPE VIELD 
od Uh YP bitfield length 4; /* PRIMARY TYPYE 


YPE BITS; 


Cot Orr PB ik hae A prervs CLI$; 
end R 
end SOTYPE TOVERCAY: 
} 
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SERVCOD OVERLAY union bs 
RVCOD word unsign 
SERVCOD ba bee sPstructyre fill; 
RQINDX RLAY union fill; 
ROIN yte unsigned; 
BITNUM byte unsigned; 
end OS OVERL 


OVERLAY; 
ROFLG $ OV U6§ byte un untan fill; 


ned; 
pars aH 180 § street cture fill; 
tf d mask; 
See b thietd mask; 
EXPNAM bitfield mask; 
end RQFLGS_BITSO; 
RQFLGS_BITS1 biegta fill; 
LASTV VAL b k; 


end RQFLGS OVERLAY; 
end S$ SERVCOD_F FIELD 
end SERVCOD OVERLAY; 
RQSTA T OVERCAY union fill; 
Rass TAT byte unsigned; 


RQSTAT_BITSO eteycture fill; 
PARMER field mask; 
itfiel mask; 
MOREINP bi 
PARMDEF bi 
end R@STAT T 
ROSTAY pits} 5b 


Ret VALU b 
end RQSTAT_BIT 


end ROSTAT_OVERLAY; 
end Fgut 3 FIECDS; 
end FILL zOVERLAY; 


meee re OVERLAY. union ay od 
c rieLbs uns 
Rave st ELDS seructore | Sut: 


athe f word fill *pretix ¢ CLIDEF tag $$; 
Ravaty UAOVERLAY un l; 
ongword A. 4 BR 
ROADDR address; 
end RQVALU_OVERLAY; 
end RQDESC F1ECbS; 
end RODESC OVERLAY 


eld mask; 


t 
b 
t 
t 
$ 
t 
i 
4 eld mask; 


t 
fi 
fi 
0; 
rystyce fill; 
tf 
fi 
1; 


/t 
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CLI SERVICE CODE 


INPUT FLAGS CONCERNING REQUEST 


Ange IS tity 
ADDRESS AR UTE 


RE URN EXPLICI § ONLY 

LAST yOLUE ALLOWED 

wee SAVE PLACE FOR ABS ADR *#* 
OUTPUT STATUS FLAGS 

PARAMETER IS PRES 

INPUT CONCATONATION EXISTS 
ANOTHER SET OF INPUT PARAMETERS 
PARAMETER WAS DEFAULTED PRESENT 
UNPROCESSED VALUES REMAIN 


SUBSEQUENT TOKEN IS VALUE FOR KEY 


ADDRESS OF ERROR ACTION ROUTINE 
QUADWORD REQUEST DESCRIPTOR 


RESULTANT SIZE OF PARAMETER 
SPARE WORD IN DESCRIPTOR 


ACTUAL VALUE _IN VALUE CONVERSTION 
ADDRESS OF RESULTANT PARAMETER 


STARDEFAE.SDL;1 16-SEP-1984 16:46:40.78 Page 29 
constant REQDESC equals . prefix CLI$ tag C; /* SIZE OF THE STRUCTURE 


/* 
Define the Descriptor Used by Symbol and Logical-name Callbacks 
end CLIDEF1; 


aggregate gE ioere structure refix ¢ 
” Fit ion 4 f fill By CLIDEF tag $$; 


byte dimens 
bes Quadword unsigned; /* Logical name or symbol name 
VALDES Quadword unsigned; /* Equivalence name or symbol value 
TABDESC secur’ une Nenad: /* Name of logical name table 
ITMLST Longword unsigned; /* Address of item List 
ATTR longword unsigned; /* Address of attribute Longword 


/* 
/* Define the Descriptor Locations Used for the Old/New 
/* Qut-of-Band Character(s) Masks 


/* 
end CLIDEF2; 
aggregate CL CLIDEF3 structure ereftx CLIS; 
byte dimension 4 fill cotta CLIDEF tag $$; 


NEW_ mask’ t Longword unsigned; /* Enable/disable mask 
OLD-MASK Longword unsigned; /* Previous enabled values mask 


/* 
a Define the descriptor used for ATTACH callback 


end CLIDEF3; 
egorevate, gst structure prefix CLI$; 
byte dimension 4 fill prefix CLIDEF tag $$; 

PID aremad unsigned; /* PID of ‘‘destination’’ process 
/* 
A Define the descriptor used for SPAWN callback 
end CLIDEF4; 
aggregate CLIDEFS structure prefix CL 


I$; 
exte d’ngns ten 4 fill prefix CLIDEF tag $$; 
FLAGS Ove AY union fill; 


te unsigned; /* Flags byte 
FLAGS B H structure fill; 
NOWAIT bitfield mask; /* Do not wait for subprocess completion 
NOCLISYA bitfield mask; /* Do not copy CLI sym ols to subprocess 
NOLOGNAM bitfield mask: /* Do not copy logical names to subprocess 
ee bitfield mask; /* Do not ¢ copy keypad state to subprocess 
NOTIFY bitfield mask; /* Output notification message 
bitfield mask; /* Do not put CR/LF in front of prompt string 


NOCONTR OL 
end FLAGS BITS; 
end FLAGS OVERLAY; 
FILL_5 byte dimension F ett prefix CLIDEF tag $$; /* Unused 
OUTPTD Longword unsigned /* PID of subprocess on return 


ee —_ “= ~~ ie coco 
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STSTATUS Longword eo 
STR quadword unsigne 
NPUT quadword uns ned; 


ed; 
PAWN_VE SION equals ! prefix 

constant SPAWN_VER +." equals 1 prefix 

FILL_6 byte dimens Ly oF itt pret tx CL 

PROMPT quadword yas! ned 3 

CLI guadword unsigne 

TABLE quadword unsigned; 


/t 


/* poorers > s ore final 3) ee status 
* Descr ptor — 3 

* bescriptor @ nput ti lespee 

* Descriptor ot outers filespec 
/* Descriptor of name for supprocess 
* Address of term ne’ for AST routine 
* pedrese oF AST routine parameter 

* Event flag to set on termination 
/* Data structure version 

/* Latest version 

/* Latest version 
/* Unuse 

/* Descriptor of prompt string 
/* Descriptor of cli name 
/* Descriptor of cli table name 


/* Define the Length of the longest ‘‘supervisor-mode service’’ request block, 
/* so that programs can allocate a fixed amount of space for the block. 


/t 


constant SRVDESC equals . prefi 
constant SRVDESC equals . prefi 


= x 
on 
ae 
os 


/t 
oe DEFINE THE PARAMETER QUALIFIER DESCRIPTOR 
a 


end CLIDEFS; 


er eRe kst2 ry pers structure prefix CLI$; 
byte apr ora, 


ned; 
aDFiLGs ane wien fill; 
byte unsigned; 
ries BITS structure fill; 
ALCOCCUR bitfield mask; 
QDUSRV ittield mask; 
QDEXPA itfield mask; 


e E 
QDSTAT_OVERLAY ates fill; 
4 byte unsigned; 
TAT By ts 


TS structure fill; 
TRU bitfield mask; 
QUALEXP bitfield mask; 
end QDSTAT_BITS; 


end QDSTAT_OVERLAY; 
QDVALDESC_OVERLAY union fi Us 
QDVALDESC quadword uns 
QDVALDE SC FIELDS struc ture 4 tts 


tte wor unsig ned: 
ay x ill prefix CLIDEF tag $$; 
VACADR address; 


/* Length of longest ‘'service’’ cattle 
/* Length of longest ‘'service’’ callb 


/* SIZE OF THE FINAL BLOCK 
/* 1D CODE FOR THE QUALIFIER 


/* FLAGS BYTE 
/* TAKE ACTION ON ALL OCCURANCES 


/* USER CONTEX VALUE IS PRESENT 
/* TAKE ACTION ON EXPLICIT OCCURANCES 


/* QUALIFIER STATUS 
/* QUALIFIER IS TRUE 
/* QUALIFIER EXPLICITLY STATED 


/* QUALIFIER VALUE DESCRIPTOR 


/* SIZE OF VALUE 
/* SPARE WOR 
/* ADDRESS OF VALUE STRING 


$7 


F 
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end QDVALDESC FIELDS; 
end QDVALDESC OVERLAY; 
a ; 


TRUACT /* QUALIFIER TRUE ACTION ROUTINE 

FLSACT address; /* QUALIFIER FALSE ACTION ROUTINE 
constant QUALDEF equals . prefix CLI$ tag K; /* SIZE OF FIXED PART OF STRUCTURE 
constant QUALDEF equals . prefix has tag C; /* SIZE OF FIXED PART OF STRUCTURE 
constant QDBITS equals . prefix CLI$ tag K; /* START OF BIT LISTS(VARIALBLE LENGTH) 
constant QDBITS equals . prefix CLI$ tag C; /* START OF BIT LISTS(VARIALBLE LENGTH) 
USRVAL longword unsigned; /* OPTION USER VALUE IF PRESENT 


/t 
. DEFINE SPACE FOR THE RESULT PARSE WORK AREA 


end CLIDEF6; 
aggre ate CLIDEF7 union prefix CLI$; 


KAREA longword unsigned dimension 32; /* ALLOCATE 32 LONG WORDS 
constant WORKAREA equals . prefix CLI$ tag K; /* SIZE OF HEADER 
constant WORKAREA equals . prefix CLI$ tag C; /* SIZE OF HEADER 
/* 
. DEFINE CLI UTILITY REQUEST CODES 
/* CODES ARE 8 BITS, CONSISTING OF 2 4 BIT FIELDS 
/* THE LEAST 4 BITS ARE SUBFUCTION DEF INITONS 
44 AND THE MOST SIGNIFICANT 4 BITS ARE REQUEST TYPE 
/* DEFINE REQUEST TYPE CODES 
constant ( 
UTILOPR /* UTILITY OPERATIONS 
. INPSPEC /* REQUEST FOR AN INPUT SPECIFICATION 
, OUTSPEC /* AN OUTPUT FILE SPECIFICATION 
« PARDONE /* PARAMETER DONE REQUEST 
» VALCONV /* REQUEST A VALUE CONVERSION 
CLINT /* CLINT OPERATIONS 
“ j equals 0 increment 1 prefix CLI tag SK; 
a DEFINE COMPLETE CODES FOR UTILITY OPERATIONS 
constant ( 
INITPRS /* REQUEST INITIALIZATION OF PARSE 
. GETCAD /* GET COMMAND BUFFER LIMITS 
» GETQUAL /* OPTAIN STATE OF QUALIFIERS 
. GETOPT /* DECODE COMMAND OPTION 
ye . GETLINE /* GET COMMAND LINE 
/* THE CLISERV REQUEST TYPE APPEARS HERE, INSTEAD OF WITH THE OTHER REQUEST 
/* TYPES, BECAUSE IT HAS NO SUBFUNCTIONS ASSOCIATED WITH IT, AND BECAUSE A 
/* DAY 1 CODING ERR USES DCL TO EXPECT THAT THIS REQUEST NUMBER WILL 
/* APPEAR IN THE SUBFUNCTION BITS. THIS MEANS THAT NO UTILITY OPERATION 
ae CAN BE DEFINED WITH THE SUBFUNCTION NUMBER 5. 


- CLISERV /* REQUEST A SERVICE FROM THE CLI 
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) equals (CLISK_UTILOPR@4) increment 1 prefix CLI tag SK; 


ft 
oS DEFINE COMPLETE CODES FOR INPUT SPECIFICATIONS 
constant ( 
INPUT /* PRIMARY INPUT 
» INPUT /* SECONDARY INPUT 
» INPUT /* THIRD 
NPUT4 /* ETC Etc, ETC 
te § equals (CLISK_INPSPEC@4) increment 1 prefix CLI tag 
eS DEFINE COMPLETE CODES FOR OUTPUT SPECIFICATIONS 
constant ( 
OUTPUT1 /* FIRST OUTPUT 
» OUTPUT /* SECOND OUTPUT 
» SUTPUT /* THIRD,- 
OUTPU /* ETC. ETC,ETC 
pA j a hha by (CLISK_OUTSPEC@4) increment 1 prefix CLI tag $k; 
C DEFINE CODES FOR RESULT PARSE PARAMETER COMPLETION 
constant ( 
ENDPRM1 /* COMPLETED PARAMETER SET 1 
- ENDPRM /* COMPLETED PARAMETER SET ¢ 
» ENDPRM /* COMPLETED PARAMETER SET 
ENDPRM4 /* COMPLETED PARAMETER SET 4 
j equals (CLISK_PARDONE@4) increment 1 prefix CLI tag SK; 


/t 
os DEFINE CODES FOR VALUE CONVERSION REQUESTS 


constant ( 
NUMERVAL /* rerg yg VALUE 
» ASCIIVAL /* A or sohes ALUE 
KEYWORD /* KEYWOR D VALUE 
° * KEYVAL /t Se WITH VALUE 


FILSP EC /* VALUE IS A FILESPEC 
§ equals (CLISK_VALCONV@4) increment 1 prefix CLI ro $K; 


/t 
oe DEFINE COMPLETE CODES FOR UTILITY OPERATIONS 


constant ( 
PRESENT /* DETERMINE IF ENTITY IS PRESENT 
- GETVALUE /* GET VALUE OF ENTITY 
- ENDPARSE /* CLEAN UP AFTER PARSING COMMAND 
. DCLPARSE /* PARSE USER COMMAND LINE 
- DISPATCH /* DISPATCH TO ACTION ROUTINE 
NE X TQUAL /* PROCESS NEXT QUALIFIER 
§ equals (CLISK_CLINT@4) increment 1 prefix CLI tag SK; 


end CLIDEF?; 
end_module S$CLIDEF; 
module S$CLISERVDEF; 
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/* 
as DEFINE CLI SERVICE REQUEST CODES 
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/* 
constant ( 
PAUSE /* 
» DEFLOCAL /* 
» DEFGLOBAL /* 
» CHAIN /* 
» & D /* 
» CREALOG /* 
- DELELOG /* 
» DISACTRLY /t 
» ENABCTRLY /* 
» GETSYM /* 
» DELELCL /* 
- DELEGBL /* 
« DISAOOB /* 
- ENABOOB /t 
~ SPAWN /* 
ATTACH /* 
fe § equals 1 increment 1 prefix CLI tag $K; 
J Define local/global symbol flag returned by GETSYM 
constant ( 
LOCAL_SYM /* 


GLOBAC_SY 


§ equals~1 increment 1 prefix CLI tag SK; 


end_module SCLISERVDEF ; 
gedule SCLIVERBDEF ; 
es DEFINE GENERIC CODES FOR VERBS 


constant ( 
A 


* CREA 


DEFINE CLI SERVICE CODES 

PAUSE THE IMAGE 

per ine A SYMBOL iN we LOCAL TABLE 
DEFINE A SYM o N THE GLOBAL TABLE 
PASS AN IMAGE TO RUN AFTER THIS ONE 
PASS A COMMA INE TO LATER EXECUTE 
PEt Me A PROCESS LOGICAL NAM 

DELETE A PROC LOGICAL NAM 

Pi saene DCL CONTROL Y PROCESSING 
ENABLE DCL CONTROL Y PROCESSING 
RETURN VALUE OF A SYMBOL 

DELETE A LOCAL SYMBOL 

State A GLOBAL SYMBOL 

DISABLE OUT-OF=-BAND CHARACTER(S) 
RE-ENABLE OUT-OF-BAND CHARACTER(S) 
SPAWN A SUBPROCESS 

ATTACH TO A PROCESS 

Local symbol 


Global symbol 


DEFINE VERB QENERIC CODES 


ALLOCATE 
ANAL IZE 
A N 


STi 


en 
enc 
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S 
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‘—. 


constant ( 
) equals 255 increment -1 
end_module $CLIVERBDEF ; 


ME 
equals 1 increment 1 prefix CLISK_VE tag RB; 
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ce COMMAND 


REQUEST 
/* SYNCRONIZE 
CORAL 
/* PASCAL 
PL/ 
/* MESSAGE 
/* DEFINE VERB QENERIC CODES 


/* FOREIGN COMMAND 
prefix CLISK_VE tag RB; 
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module SCLSDEF; 
J+ 


/* 
/* Security Close tt tcetten mask block. Contains security and integrity 
a level and categories for non-discret onary access controls. 


/t- 
sooregete ct CL SOEF Sete prefix CLS$; 
NIEGTLEV byte. unsigned: be tnteortty tas 
signe ntegr eve 
atte T word rid fil G . /* eserves ed , 
R_CAT S ciutha: /* Security category mask 
/* Integrity category mask 


iniece CAT quadword; 
end CLSDEF; 


end_module SCLSDEF; 
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gogule SCRDEF; 
s CARD READER STATUS BITS 


“sr ehbeF CRDEF union pretit. CRS; 
Fapits pits cture 
MODE bitfield Seah’ tingth 4; 
end CRDEF BITS; 


/t 
Me TRANSLATION MODE DEFINITIONS 


/t 
constant 1026 equals 0 prefix CR tag $K; /*026 PUNCH CO 
constant T029 equals 1 prefix CR tag $k; /*029 PUNCH CO 


end CRDEF; 
end_module SCRDEF; 


K 
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/* TRANSLATION MODE 


E TRANSLATION 


D 
NCH CODE TRANSLATION 
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gedule SDOCDEF; 
/* DEVICE ADAPTER, CLASS, AND TYPE DEFINITIONS 


/* 
/* 
A DEFINE ADAPTER TYPES 

/*DEFINE ADAPTER TYPES 
constant MBA equals 0 prefix AT tag $; /* MASSBUS ADAPTER 
constant UBA equals prefix AT tag $: /* UNIBUS ADAPTER 
constant DR equals prefix AT tag $; /* DR32 ADAPT 
constant MPM equals prefix AT tag $; /* MULTI-PORT MEMORY 
constant Cl equals 4 prefix AT tag $; /* U 
constant NULL equals 5 prefix AT tag $; /* NULL (SOFTWARE) ADAPTER 


/ 
An DEFINE DEVICE CLASSES 


eyuets 6 
constant WORKSTATION equals 


DEFINE DEVICE CLASSES 
constant DISK equals 1 prefix DC tag $; DISK 
constant TAPE equals prefix DC tag $; TAPES 
constant SCOM equals : prefix DC tag $; SYNCHRONOUS COMMUNICATIONS DEVICES 
constant CARD equals 65 prefix DC tag $; CARD READER 
constant TERM equals 66 prefix DC tag $; TERMINAL 
constant LP prefix DOC tag $; I 
PIRES TATIONS 


70 grote y $; 
ls 96 prefix DC tag $; 


DC ta 
constant REALTIME sgue REAL-TIM 
constant BUS equals 1 refix DC tag $; BUSES 
constant MAILBOX equals 160 prefix bc tag $; MAILBOX 


te ene eee eeee se 2 
- 
-_ 
z 
mm 
wv 
= 
=z 
— 
z= 


constant JOURNAL equals 161 previs DC tag $; 
constant MISC equals 200 prefix DC tag $; 


~~ RS 


JOURNAL 
MISCELLANEOUS DEVICES 


/t 
Me DEFINE DEVICE TYPES 
* 


/t 
/* 
/* DISK DEVICES 
/* 
constant RK OS equals 1 prefix DT tag $; penene DISK 
constani RK equals ¢ prefix pt tag $; /*RKO7 DISK 
constant RP04 equals prefix DT tag $; yenege DISK 
constant RPOS equals 4 prefix DT tag $; /*RPOS DISK 
constant RP equals 5 prefix DT tag $; /*RPO6 DISK 
constant Ri equals $ prefix DT tag $; /*RMOS DISK 
constant RPO? equals prefix DT tag $; /*RPO? DISK 
constant RPO7HT equals 8 prefix DT tag $; /*RPO? DISK WITH HEAD/TRACK 
constant RLO1 equals prefix DT tag $; /*RLO1 DISK 
constant RL § equals 19 prefix DT tag $; /*RLO2 DISK 
constant RX equals 11 prefix DT tag $; /*RX02 DISK 
constant RX04 equals \¢ prefix DT tag $; /*RX04 DISK 
constant RM8O equals 15 prefix DT tag §$; /*RMB80 DISK 
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constant RM 
constant RX 
constant ML11 


constant RB 
constant RB 


constant RAs 


constant RA 
constant RA 
constant R 
constant R 
constant R 
constant R 
constant R 
constant R 
constant R 
constant R 
constant R 
constant R 
constant R 
constant R 
constant R 
constant C 
constant C 
constant R 
constant R 
constant RX 


{ Add device type definitions for 


constant FD1 
constant 44 
constant FD 

constant FD4 
constant FD5 
constant DG 
constant FD 

constant FD8 


constant TE1 
constant TU4 
constani TU? 
constant TS1 
constant TU7 
constant TA7 
constant TU 
constant TU 
constant TA 
constant TK 
* 


equals 1 prefix 
equals 15 prefix 
equals 16 prefix 
equals 17 prefix 
equals 18 prefix 
equals 1 prefix 
equals prefix 
equals prefix 
equals prefix 
sauels 8 brevis 
equals 24 prefix 
equals 24 prefix 
equals 25 prefix 
equals 8 prefix 
seuss $e oretie 
equers ; preys 
equals prefix 
equals 31 prefix 
equais § pretis 
equals refix 
eauels 4 Sretin 
equals 35 prefix 
equals 8 prefix 
equals prefix 
equals 129 prefix 
equals 130 prefix 
equals 131 prefix 
equals 1 § prefix 
equals 135 prefix 
equals 134 prefix 
equals 135 prefix 
equals 136 prefix 
equate ] prefix 
equals prefix 
equals : prefix 
equals 4 prefix 
Sausts @ prefix 
equais : previs 
equals refix 
equals § pretix 
equals 10 prefix 


/ 
ae TERMINAL DEVICE TYPES 
/* new definitions for terminal types should be placed in $ttdef only 


M 
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DT tag $; seluse 

DT tag $; /*RMOS DISK 

DT tag $; /*RX01 Oyet 

DT tag $; /*ML11 disk 

DT tag $; /*RO2 ON Rez a0 

DT tag $ /*R80 ON RB? 

DT tag $; /*R80 ON INTELLIGENT CONTROLLER 
DT tag $; /*R81 ON INTELLIGENT CONTROLLER 
DT tag $; /*PINON ON INTELLIGENT CONTROLLER 
DT tag $ /*AZTEC REMOVABLE (Old name) 
DT tag $; /*AZTEC REMOVABLE (New name) 
DT tag $: Py 34: att (Old name) 

DT tag $; /*A iE¢ FIXED (New name) 

DT tag $; et FIXED DISK DRIVE 

DT tag $; /*RX50 FLOPPY DISK DRIVE 

DT tag $; /*RDS2 FIXED DISK DRIVE 

DT tag $; /*RD55 FIXED DISK DRIVE 

DT tag $; venaes FIXED DISK DRIVE 

DT tag $; /*RAB2 FIXED DISK DRIVE 

DT tag $; /*AZTEC II REMOVABLE 

DT tag $; /*AZTEC Il FXED 

DT tag $; asconegle RX50 

DT tag $; /*CORS 

DT tag $; /*RX31 

DT tag $; att 

DT tag $; /*RX1 

DIGITAL manufactured disks above this line. } 

DT tag $; /*FOREIGN DISK TYPE 1 

DT tag $; /*FOREIGN DISK TYPE ¢ 

DT tag $; /*FOREIGN DISK TYPE 

DT tag $; /*FOREIGN DISK TYPE 4 

DT tag $; /*FOREIGN DISK TYPE 5 

DT tag $; /*FOREIGN DISK TYPE § 

DT tag $; /*FOREIGN DISK TYPE 

DT tag $; /*FOREIGN DISK TYPE 8 
DT tag $; /*TE16 MAGTAPE 
DT tag $: /*TU45 MAGTAPE 

DT tag $; /*TU77 MAGTAPE 

DT tag $; “star MAGTAPE 

DT tag 33 /*TU78 MAGTAPE 

DT tag $; /*TA78 MAGTAPE 

DT tag $; /*TU80 MAGTAPE 

DT tag $; /*TU81 MAGTAPE 

DT tag $; /*TA81 MAGTAPE 

DT tag $; /*TK50 CARTRIDGE TAPE 


STA 


enc 


N 
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. this table remains around for compatibility only 
/* weet MATCHES STTIDEF seen 
NKN 


constant ry equa ; 0 pretix DT tag $; /* UNKNOWN TERMINAL 
constant VT equals 1 prefix DI tag $; /* VT05 
constant FT equals 16 prefix DT tag $; /* FOREIGN TERMINAL TYPES 
constant FT equals 17 prefix DT tag $; 
constant FT equals 18 prefix DT tag $; 
constant FT4 equals 19 prefix DT tag $; 
constant FT5 equals prefix DT tag $; 
Senatens 18 equais 1 previ 4 tag $; 
constan equals prefix ag $; 
constant FT8 equals ; prefix DT tag HE /* END OF FOREIGN ryees 
/* RESERVE REST UP TO 32 FOR EXTENSIONS 
constant LAX equals prefix DT tag $; /* LA_TYPE TERMINAL 
senstent LAE. equate previs Bt tag 3: /* LA36 
constan equals refix ag $; 
senerens VIRe equals e pret tx 4! tag 3: cs VTDx TYPE 
n ° ® 
Constont Wiss squats €5 bretic OF te $3 fe VI38 
constant TQ BTS equals 4 prefix DT tag $; /* TQ BTS 
constant TER4O1X equals 10 prefix DT tag $; /* TER4OIX series 
constant VT100 equals 96 prefix DT tag $; /* vT100 
constant veto equals prefix DT tag $; 
constant VT173 equals prefix DT tag $; 
constant LA34 equals 34 prefix DT tag $; 
constant LA3 equals 35 prefix DT tag $; 
constant LA} equals § prefix DT tag $; 
constant LA24 equals prefix DT tag $; 
constant LA100 equals 37 prefix DT tag $; 
constant LQP02 equals 5 prefix DT tag $; 
constant VT101 equals 97 prefix DT tag $; 
constant yr Re equals 98 prefix DT tag $; 
constant VT1 equals 99 prefix DT tag $; 
constant V1125 equals 100 prefix DT tag $; 
egctent WTia) Sete 48). Brevi BF 838 & 
constan equals refix ag $; 
constant 0211 equals 68 pretix DT tag's: /* DZ11 CONTROLLER 
constant Deas equals 67 prefix DT tag $; /* D232 CONTROLLER 
constant D277 8 equals $8 prefix DT tag $; /* D277 9 (COMBO) CONTROLLER 
constant DMZ32 equals 69 prefix DT tag $; /* DMZ32 CONTROLLER 
constant DHV equals 70 prefix DT tag $; /* DHV CONTROLLER 
constant DHU equals 71 prefix DT tag $; /* DHU CONTROLLER 
po Terminal WORKSTATIONS 
si 
constant VS100 equals 1 prefix DT tag $; /* VAXstation 1 9 
constant VS125 equals 2 prefix DT tag $; /* VAXstation 
constant VS300 equals 5 prefix DT tag §; /* VAXstation 300 : 
genstent VD equals 4 prefix DT tag $; /* VAXstation Vir. Device 
fe SYNCHRONOUS COMMUNICATIONS DEVICE TYPES 
constant Bel] equate 2 pretie BY tae § fs Bel 
constan equals re ag $; 
constant XK_3271 equals 5 pret tx bT tag $; /* DUP-11 FOR 3271 PROTOCOL EMULATOR 
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constant XJ_2780 
constant WW ks equals 5 


constant NV_ yeuese 
constant SB_1SB1 
constant MX -MUX200 
constant DMP equals 
constant DMF equals 
constant XKV_527 
constant Cl equals 1 


constant NI equals 1 
constant UNA11 equals 1 
constant DEUNA equals 1 
constant YN Xe equals 1 
constant YO Xx 

constant YP_ 
constant YQ 3271 
constant YR_DDCMP 
constant YS_SDL 
constant UK_KTC32 
constant DEGNA equals 
constant DMV11 equals 
constant LANCE equals 
constant peLA equals 
constant NQ_ 


/* 

oe LINE PRINTER AND CARD 
* 

constant LP11 equals 1 

constant LA1l1 equals 

constant LA180 equals 


constant CR11 equals 1 


/t 
s MAILBOX DEVICE TYPES 
constant MBX equals 1 


constant SHRMBX equals § 
constant NULL equals 


/* 
a REALTIME DEVICE TYPES 


constant LPA11 equals 1 
constant dR 790 equals § 
constant DR7 equals 
constant DR1ilW equals 4 
constant PCL11R equals 5 
constant erie. equals § 
constant DRIIC equals 
constant BS_DT07 
constant XP_PCL11B 
constant IX_IEXx11 
constant FP_FEPCM 
constant TK_FCM 


equals 4 pret is DT tag $; 
prefix DI tag $; 
prettg DT ta 


refix DT ta : 
4 f¥x. bt tag $; 


7 

Q 
oe 
° 


$; 
READER DEVICE TYPES 
prefix DT tag $; 
prefix DT tag $; 
prefix DT tag $; 


prefix DT tag $; 


prefix DT tag $; 

prefix DT tag $; 

prefix DT tag $; 

prefix DT tag $; 

prefix DT tag $; 

prefix DT tag $; 

prefix DT tag $; 

prefix DT tag $; 

prefix DT tag $; 

prefix DOT tag $; 
equals : prefix bT tag $; 
equals prefix DT tag $ 
equals 10 prefix DT tag $; 


equals 11 prefix DT tag $; 
equals 12 prefix DT tag $; 
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780 ""' 
MULATOR 


awa 
OL EMULATOR 


1 
3271 PROTOCOL EMULATOR 
Computer Interconnect 
Network Interconnect 
gto AL Sgepr 
adapter 
Msi X.25 P. Es” 
: ADCCP P.E. 
* DDCMP 
** SOL 
KTC32 
att to NI adapter 
DMV11 
SCORPIO to NI ogonter 
NA 


LSI version of DE 
* DHCF 


LP11 

LA11 

LA180 

CR11 CARD READER 
LOCAL MEMORY MAILBOX 


SHARED MEMORY MAILBOX 
The NULL DEVICE 


sit 

DR yS0 

DRI1W 

PCL11 RECEIVER (CSS) 

Pete TRANSMITTER (CSS) 
DRI1C PARALLEL INTERFACE 
hes SWITCH 

PCL- (DECNET and NONDECNET mode CSS) 
IEEE-488 to UNIBUS INTERFAC 
FEPCM CSS front processor 
FEPCM CSS front processor 
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constant KI_DR11C equals 13 prefix DT tag $; /* PARALLEL INTERFACE ON DMF-32 


/t 
~ BUS CLASS DEVICES 


—_—_ tr 


. | 

® 
constant C17 equals refix DT tag $; /* Cl - 
constant £1788 equals prefix DT tag $; /* E178 ne 
constant UQPORT equals prefix DT tag $; /* UQPORT is generic UDA ® 
constant UDA 8 equals prefix DT tag $; /* UDA o 
constant UDAS0OA equals 4 prefix DT tag $; /* UDASOA nd 
constant LES! equals 5 prefix DT tag $; /* bo end storage s 
constant TUSIP equals 8 prefix DT tag $; /* TU81 port ed 
constant RDRX equals prefix DT tag $; /* RDRX port be 
constant it equals 8 prefix DT tag $; /* ny port , 
constant RUXSOP equals prefix DT tag $; /* RUX5SO port - 
constant RC26P equals 19 prefix DT tag $; /* RC26P port Sd 
constant QDA equals 11 prefix DT tag $; /* QDA50 port ed 
constant BDA equals \§ prefix DT tag $; /* BDASO port bd 
constant CDR50P equals 15 prefix DT tag $; /* CORSO port e 
constant QDA25 equals 14 prefix DT tag $; /* QDA25 port - 
/* ad 
= JOURNAL DEVICES “ 

7 

constant UNKNJNL equals 0 th DT tag $; /* UNKNOWN JOURNAL TYPE (ONLY IN TEMPLATE) o 
constant RUJNL equals 1 prefix DI tag $; /* RECOVERY UNIT JOURNAL 
constant BIJNL equals § prefix DT tag $; /* BEFORE IMAGE JOURNAL + 
constant AIJNL equals prefix DT tag $; /* AFTER IMAGE JOURNAL 
constant ATJNL equals 4 prefix DT tag $; /* AUDIT TRAIL JOURNAL F 
constant CLJNL equals 5 prefix DT tag $; /* CONTROL JOURNAL ‘ 
/e 
- MISCELLANEOUS DEVICES 
constant DN11 equals 1 prefix DT tag $; /* AUTODIALER 


end_module SDCDEF; 


a 
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end_module SDEVDEF; 
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gogute SOIBDEF ; 
“ DEVICE INFORMATION BLOCK DEFINITIONS 


aggregate DIBDEF structure prefix DIB$; 


CHAR Longword pe igned; /*DEVICE CHARACTERISTICS 
DEVCLASS oY e unsigned; /*DEVICE CLASS 
VTYPE byte unsigned; /*DEVICE TYPE 
VBUFSIZ word unsigned; /*DEVICE BUFFER SIZE 
DEVDEPEND OVER AY "uhien’ fill; 
DEVDEPEND [ongword unsigned; /*DEVICE DEPENDENT INFORMATION 
DEVDEPEND Fie DS structure fill; 
aye unsigned; re ONLY) SECTORS ache TRACK 
TRACKS nS by e uns gned: * © TRACKS PER CYLIND 
word unsigned; is NUMBER OF CYLINDERS 
end DEVDEPEN LDS; 
end DEVDEPEND RLA 
UNIT word alaned /*DEVICE UNIT NUMBER 
DEVNAMOFF word ned /*OFFSET TO DEVICE NAME COUNTED STRING 
PID tg net unsigned; /*DEVICE OWNER PROCESS IDENTIFICATION 
ongwor uns igned; /*DEVICE OWNER USER IDENTIFICATION CODE 
yPROT word uns aoe /*DEVICE PROTECTION MASK 
ERRCNT word unsigned; /*DEVICE ERROR COUNT 
OPCNT Longword uke lened: /*DEVICE OPERATIONS COUNT 
VOLNAMOFF word ad ra. /*OFFSET TO VOLUME LABEL COUNTED STRING 
RECSIZ word unsigne /*BLOCKED RECORD SIZE 
DE VNAME charester Length 76; /*SPACE FOR DEVNAME AND LABEL (64+12) 
MAXBLOCK longword unsigned; /*DISK VOLUME SIZE IN BLOCK 
constant ‘LENGTH’ equals . prefix DIB$ tag K; /*LENGTH OF TOTAL BUFFER 
constant "‘LENGTH’’ equals . prefix DIB$ tag C; /*LENGTH OF TOTAL BUFFER 


end DIBDEF; 
end_module S$DIBDEF; 


: 
: 
: 
: 
: 
: 
: 
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module SDMPDEF ; 


T HEA BER BLOCK OF THE SYSTEM ou FILE 
WHICH FIRST DISK BLOCK OF SYSSSYSTEM:SYSDUMP.DMP) 


a 
/* M's | 0 
is | 
* 


eggregate DMPDEF structure prefix DMP$; 
ERRSEQ Longword MN ri 3 
FLAGS OVERLAY union : 


end FLAGS BITS; 
end FLAGS LOVERCAYA; 
DUMPVER word unsigned; 


end FLAGS FIELDS; 
nd FLAGS_OVERLAY; 


USP ponerse uns greg 


ISP 
REGS OVERCAY un unsag nasil 
REGS gpongyere. unsigned dimension 14; 
MEMDSC ion fill; 
MERDSC onguord "uns toned: 
C tructure fill; 
PAGE T bitfield length 24; 
R bitfield fength 
BASEPEN bitf el length 32; 


constant wEMDSCS17 equals : prefix DMP t 
onstant wataye. equals 
end MEMDSC OVERLAY 
end re OVERLAY; 
end DMPDEF; 


aggre pee, DMPDEF1 structure prefix 
ss Fu 1 byte di nian $2" 
b TEnquecd uns qned ; 
PC longword unsigned; 
SYSVER_OVERLAY union fill; 
SYSVER 
PSL lon 
end SYSVER_OVERL 
CHECK longword net 


fill war 1 DMPDEF tag $$; 


LAST ERROR LOG SEQ. NUMBER 
DUMP FILE FLAGS 


NEW 
SET 
SET 


NEW 
NEW 
NEW 


NEW 


$C;/* 


prefix DMP ton $Ci/* 


! OF 
NEW FORMAT DUMP: TR ! F 


FORMAT DUMP: DUMP FILE FLAGS 


IF DUMP ALREADY ANALYZED 
IF DUMP HAS NO DATA BLOCKS 


FORMAT DUMP: DUMP F 
FORMAT DUMP: Q= 
FORMAT DUMP: l= 


ILE VERSION N ets 
PRE-RELE ast FORMAT 
RELEASE 2.0 FORMAT 


T STACK POINTER 

FORMAT DUMP: RO = R13 

FORMAT DUMP: 8 MEMORY DESCRIPTORS 
frenet DUMP: PAGES IN ata 
FORMAT DUMP: BASE PPN FOR AE MEMORY 


NEW FORMAT DUMP: SIZE OF ONE MEMORY DE 
NEW FORMAT DUMP: NUMBER OF MEMORY DESC 


SCRPTR 
RIPTORS 


FORMAT DUMP: STACK POINTER 
FORMAT DUMP: PROGRAM COUNTER 


FORMAT DUMP: SYSTEM VERSION NUMBER 
FORMAT DUMP: PROGRAM STATUS LONGWORD 


FORMAT DUMP: ONES COMPLEMENT OF SYSVER 


: 
| 
¢ 
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constant ' ENGTW, equals . prefix DMP 
constant ‘‘LENGTH"’ equals . prefix DMP 
CRASHERL Longword unsigned; 

end DMPDEF1; 


end_module SDMPDEF ; 
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tag K; /* LENG TH OF F ILE H W444 
tag C; /* tENG TH OF FILE HEA 
/* NEW FORMAT DUMP: ey fem CRASH ERR LOG ENTRY 


AAA AAAAPAAAPAAAAAAPAAA AAA AAA 
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gotute SDMTDEF; 
FLAG BITS FOR THE SDISMOU (DISMOUNT) SYSTEM SERVICE. 


aggregate DMTDEF union prefix DMT$; 
DATD EF BITS structure fl Hus 


OROONL OAD 5 cooal /* DO NOT UNLOAD (SPIN DOWN) THE VOLUME 
UNIT bitt eld mask; /* DISMOUN ONLY THE SPECIFIED VOLUME 
ABORT bitf eld mask; /* FORCED DISMOUN 
CLUSTER bitfield mask; /* CLUSTER-WIDE DISMOUNT 
end DMTDEF_BITS; 
end DMTDEF; 


end_module SDMTDEF ; 
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module SDVIDEF; 


{ee 
/t 
o Get Device and Volume Information Data Identifier Definitions 
/e weet NOTE eeee 
/* 
/* New items must always be added at the END of the List so that 
cs users will not have to relink. 
/t- 
constant ( 
EVCHAR /* Device characteristics - VALUE = 4 bytes 
» DEVCLASS /* Device class - VALUE - 1 arte 
. DEVTYPE /* Device type - VALUE - 1 byte 
» DEVBUFSIZ /* Device buffer size - VALUE - 2 bytes 
- DEVDEPEND /* peyice dependent information = VALUE - 4 bytes 
. UNIT /* Unit number = VALUE = 2 bytes 
. PID /* Process identification of device owner - VALUE - 4 bytes 
° /* UIC of device owner = VALUE =- 4 bytes 
» VPROT /* Volume protection mask = VALUE - 2 bytes 
» ERRCNT /* Error count = VALUE = 2 bytes 
» OPCNT /* Operation count = VALUE = 4 bytes 
- RECSIZ /* Blocked coger¢ size - VALUE - 2 bytes 
- MAXBLOCK /* Number of log gal blocks on the volume (disk) - VALUE - 4 bytes 
» DEVDEPEND2 /* Additional device dependent data - YALUS - ytes 
» REFCNT /* Reference count of processes = VALUE = 2 bytes 
» DEVNAM /* Device name - STRING - 64 bytes 
~ VOLNAM /* Volume name - STRING - 12 bytes 
» SECTORS /* Number of sectors per track (disk) - VALUE - 1 byte 
- TRACKS /* Number of tracks per cylinder (disk) - VALUE - 1 byte 
» CYLINDERS /* Number of cylinders on the volume (disk) - VALUE - 2 bytes 
- FREEBLOCKS /* Number of free blocks on the volume (disk) - VALUE - 4 bytes 
- LOGVOLNAM /* Logical volume name - STRING - 64 bytes 
- VOLNUMBER /* Number of this volume in volume set (disk) - VALUE - 4 byte 
- VOLCOUNT /* Count of volumes in volume set (disk) - VALUE - 4 byte 
« ROOTDEVNAM /* Device name of root volume in volume set (disk) - STRING - 64 bytes 
» NEXTDEVNAM /* Device name of next volume in volume set (disk) - STRING - 64 bytes 
» TRANSCNT /* Volume Transaction Count - VALUE = 2 bytes 
« MOUNTCNT /* Mount count = VALUE - bytes 
- CLUSTER /* Volume Cluster Size (disk) - VALUE - 2 bytes 
- MAXFILES /* Maximum Files on Volume (disk) = VALUE - 4 bytes 
- SERIALNUM /* Volume Serial Number (disk) - VALUE - 4 bytes 
- ACPPID /* ACP Process ID = VALUE - 4 bytes 
, ACPTYPE /* ACP type code - VALUE - 1 byte 
Pre CONCEALED /* Device is a concealed device - BOOLEAN - 1 byte 
Ad THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVCHAR LONGWORD 
» REC /* DEVICE RECORD ORIENTED 
. oo. /* CARRIAGE CONTROL DEVICE 
» TRA /* DEVICE IS A TERMINAL 


STA 


7 Page 49 


16-SEP-1984 16:46:46. 


STARDEFAE.SDL;1 


- 
a 
w 
« 
—_ 
~~ _ 
w =) 
a = 
<= [4 
oo Mm 
Oo ” 
= 
= ian w 
< e — 
. ” = — 
> — a 
ow o Aa 6 
we. z z 
ae~ “oa So 
>~ . o) za _ 
lat - »« -D> a 
vow 7) oa .- Sa ow 
baw |) ol! w -oArF wo 
oar =o + ww2z> | 
we > 4 ao t=O < 
auww o o <= wo wiz 
== ©& 2 . 2z ~ovuove zw 
-> <= w w mw +jZz2Z2n>5>w 
v%aca _ ° vu ee ——we 9 
D,>Ow no = —w pee) EJ woovtowz 
a — >w oF eee vwsz az 
K—vZz =) wa z— WeS>>et we 
ww cw wa oa oo &gaoo 2xwv 
=ee--2a00GQ wow < =O O83acz-wow 
rSeKawe~S- =e YO MOOCQu 122 wx 
coo >a =—mu O ju WwW owrtwe 
Oo ‘ocr wO f& AOMa rf otcuuZzzw 
KweOwv COtbwwww JOacdwitood= w 
vive oe az hs OU SB erar 
woowmeo wore eae @Zozeuw jie 
ez wovwe > =). ee bee ee a: 
ae tS =? wr zEa2 S2ue> 
am 2eeoZoacd=-EFaew AEM oc 
—a— dus <«t <« aw aati WwW 
MNELWM ONIN SONNEI CNV ECE UYNI KE 


on ~~ cee VE TT 
[VU TY Up ave lvelwy. ae ereerrervervelvervelvesrelvulververververreyreyve) 


eee oad oed ekgmdo~ieml seh even eLeeleelveseeseeteetuetpeleelveseunvenvel 
SOoOMAGGOGh Su GoOoGoSHSaAoGaHaaSaaSaanasaaa 


SP eeeeeeeeeeeeneeneeeeenennne 
™ TS TR TR RS SS 


De at ed et et ee | Se 
anna Znballeadene seeks 
ouNvMNOeg Zu OMVE COwdu M-Ocacs 

*- * >. * _ — 


STARDEFQZ.SDL) 


ING CODES ARE {WE INO TVIEUAL BITS OF THE DEVDEPEND LONGWORD 


ED FOR TERMINALS: 


oa 
4 z2 Sauzea 
— 
JOww>vrT 2 = wate oS 
“raanZzeacke— JjWwre-YVoOMsNoE 
Dwr SRNE BOK aa OOK GOI =4 
PEE haere int Ere 
Oo e Ka SeSS Saas Paes 


ee ne ddd deed ond 


*es*ese @eeeeeeeeetetesestee es & & & & 


VIDUAL BITS OF THE DEVDEPEND2 LONGWORD 
F IN STARDEFQZ.SDL) 


HE INDI 
ED FOR TERMINALS: TT2DE 


ING CODES ARE T 
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{tt 


/tt 


ess @teeseeseeseesteeesesteteteseestetestts &©& & &© & © &© & 


ese © tee 8 8 & 


THE FOLLOWING CODES 


ee 8s & 


“LOE AL ECHO 
“AUTOBAUD 


> 


GUP 
DHANGUP 
CSTMBX 


PEAHD 


zz 
2-4 


rzoom3n 


lone mousow. 
Re Oe Oe a Pe 


roODPruv> VONV00 
mMocr ms <vVTAD=Peme 

=: zum 

Aa rz 
omm zz 

<D 

wv 

> 

Co 


" om 


FULLDEVNAM 
OCKID 


ALLDE 
VOLSETMEM 
DEVLOCKNAM 


ALLOCL 


PE 
REMOTE _DEVICE 
SERVED_DEVICE 


SHOUT ~ GAT CHUP. COPYING / 
SHDW_MASTER_NAME ae 


SHDW"MEMBER™ 


LASS 
ALT_HOST ~fvAlt 
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/* TEMP DEFINITIONS FOR DCL SPAWN 


OLLOWING CODES ARE REGULAR ITEMS 


/* STATUS LONGWORD 

/* DEVICE STATUS WORD 

/* Second device characteristics longword - VALUE - 4 bytes 
/* Fully qualified coyice name 

/* Device lock id = VALUE - 4 bytes 

/* Allocation class : ge name 

/* Volume set member 

/* Device lock name 


SUPPORT FEATURES OF DUAL-PATH AND SHADOW-SET DEVICES 


/* Allocation class a pestte) 

/* Alternate host is a 

/* Name of host Seoeian alternate path 

/* Type of alternate host 

/* Primary host is active 

/* Number of paths to the device 

/* yene of host serving the primary path s ‘ hs 
/* Type of primary host ‘(today one of ‘'V785"', ‘'V780"', ''V750"" or ‘'HS50°') 
Device is not connected to local node 

/* Device is served to the cluster 


evicects retal is rogress 
; eee e "s Vv ryuer A ae er device for shadow set 

ane of rtual’’ master device for a shadow set 
* Device 2 one of the volumes making a shadow set 


STs 


M 
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« SHDW_MERGE COPYING /* Merge gopy is in progress 
+ SHDW_NEXT_PBR_NAME /* Name of the next device in shadow set 


/* 
ty THE FOLLOWING CODES ARE REGULAR ITEMS 


» TT PHYDEVNAM /* Terminal physical device name - STRI 

. CCRT2 /* DEC_CRT Level 2 part of devdepend2 | 

/* terminals. | 

E /* Decoded mec 'a name from UCBSL_MED 

TYPE /* Decoded media type from wit MED 
Dd /* NONdecoded media id from UCBSC_M 


OLLOWING CODES ARE CONTINGENCY ITEMS FOR SHADOW SUP 
T USED, THE NEXT RELEASE OF VMS CAN REUSE THESE POS 
EMS. IF THEY ARE USED, A SYNONYM WITH MORE MEANING SHO 


- SHDW_spare_bit_1 /* A spare boolean 
» SHDW_spare_bit_2 /* A spare boolean 
+ SHDW-spare_string_1 /* A spare character string 


c-OoO —->> 


SHDW_spare_string_2 /* A spare character string 
SHDW_spare_integer_1 /* A spare longword integer 
SHDW_spare_integer_2 /* A spare longword integer 


/eeee ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***«« 
) equals 2 increment 2 prefix DVI tag $; 


/* DVIS_item_code retrieves the item for the ecinery device 
is DVIS_item_code ! DVISC_SECONDARY retrieves the item for the secondary device 


/ 
constant SECONDARY equals 1 prefix DVI tag $C; /* Get item for secondary device 


/* The following ACP type codes are formally defined in SAQBDEF 
/* These synonyms are available to user grograns and they are 
/* guaranteed to be consistent by ASSUME's in SYSGETDEV. Additions 
/* to the ACP type codes in S$AQBDEF should be reflected here and 
M4 in the ASSUMES in SYSGETDEV. 

* 


constant ( 
ACP_F11Vv1 /* FILES-11 STRUCTURE LEVEL 1 
- ACP_F1iv2 /* FILES-11 STRUCTURE LEVEL 2 
» ACP_MTA /* MAGTAPE 
- ACP_NET /* NETWORKS 
» ACP_REM /* REMOTE I/0 
ACP~JNL /* JOURNAL 
j equals 1 increment 1 prefix DVI tag $C; 


end_module SDVIDEF; 


N 
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module SERADEF; 
/* 


/* 

/* Define erase type codes. The codes £90 MMY and HIDUMMY are 

/* used as placeholders, to make the definition of the upper and 
/* lower bound erase sige symbols automatic. New erase URE codes 
/* should be added at the end of the list, but before HIDUMMY. 


* 
constant (LODUMMY, /* 
MEMORY, /* Erase main memory 
DISK, /* Erase disk mass storage 
TAPE, /* Erase magnetic tape mass storage 
, Ney /* 


equals 0 increment 1 prefix ERA tag $K; 
constant MINTYPE equals ERASK_LODUMMY+1 prefix ERA tag $K;/* Lower bound of erase type codes 
constant MAXTYPE equals ERASK_HIDUMMY-1 prefix ERA tag $K;/* Upper bound of erase type codes 


end_module SERADEF ; 
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